home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 155
/
155.d81
/
ft.dancing mouse
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
42 lines
100 rem*****dancing mouse*****
102 dv=peek(186):ifdv<8thendv=8
103 poke53280,0:poke53281,0:poke53272,31
105 s=54272:pokes+24,15:pokes,220:pokes+1,68:pokes+5,15:pokes+6,215
110 pokes+7,120:pokes+8,100:pokes+12,15:pokes+13,215
115 print"[147]":v=53248:pokev+21,1
120 fors1=12288to12350:readq1:pokes1,q1:next
125 fors2=12352to12414:readq2:pokes2,q2:next
130 fors3=12416to12478:readq3:pokes3,q3:next
135 pokev+39,15:pokev+1,68
140 printtab(168)"[201] am the [196][193][206][195][201][206][199] [205][207][213][211][197]![154]"
145 p=192
150 forx=0to347step3
155 rx=int(x/256):lx=x-rx*256
160 pokev,lx:pokev+16,rx
170 ifp=192thengosub300
175 ifp=193thengosub310
180 poke2040,p:fort=1to60:next
185 p=p+1:ifp>194thenp=192
190 next
191 poke214,15:print" [208]ress [211][208][193][195][197]/[198][201][210][197] to go to menu
193 j[178][194](56320):[161]a$:[139]a$[179][177]" "[175]j[177]111[167]193
195 [137]315
200 [131]30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
210 [131]63,255,252,31,187,248,3,187,192,1,255,128,3,189,192,1,231,128,1,255,0
220 [131]31,255,0,0,124,0,0,254,0,1,199,32,3,131,224,7,1,192,1,192,0,3,192,0
230 [131]30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
240 [131]63,255,252,31,221,248,3,221,192,1,255,128,3,255,192,1,195,128,1,231,3
250 [131]31,255,255,0,124,0,0,254,0,1,199,0,7,1,128,7,0,204,1,128,124,7,128,56
260 [131]30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
270 [131]63,255,252,31,221,248,3,221,192,1,255,134,3,189,204,1,199,152,1,255,48
280 [131]1,255,224,1,252,0,3,254,0,
290 [131]7,14,0,204,14,0,248,56,0,112,112,0,0,60,0,-1
300 [151]s[170]4,129:[151]s[170]4,128:[142]
310 [151]s[170]11,129:[151]s[170]11,128:[142]
315 [153]"stopload"
320 [153]"new"
325 [153]"load"[199](34)"ft.menu"[199](34)","dv
330 [153]"run"
335 [153]"":[151]631,13:[151]632,13:[151]633,13:[151]198,3:[128]
10000 d[178][194](186):n$[178]"ft.dancing mouse":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]